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ABSTRACT 


This report is designed as a User's Quiide to the Lick 32K Focal 
System. It assumes some familiarity with Digital Equipment Corporation's 
Focal 1969 language. Although this report makes numerous comparisons 
with the Lick 8K Focal System (which is described in previous Lick Technical 
Reports), an understanding of Lick 8K Focal is not a prerequisite. 

The first part of this report describes the similarities and dif- 
ferences between the Lick 8K Focal System and the Lick 32K Focal System. 
It also describes some of the new features and concepts one needs to 
understand to efficiently use the system. The second part describes the 
operation of specific groups of 32K Focal functions, and serves as an ex 
tended summary of all the commands that are a resident part of 32K Focal. 
The third part describes additional commands that are available as overlays. 
** Appendix A gives a serieSof indices and cross-references of Focal 
function names and related codes. Appendix B gives a complete list of 
error codes and their associated meanings. 

It is probable that updated versions (or additional pages for this 


version) will appear from time to time. 


** Appendix A was deleted when this report was amended in June 1977. 
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32K FOCAL USER'S Q@UIDE 


I. Introduction 


a) Background 

To assist in data acquisition and data reduction, three PDP 8I computers 
were installed at Lick Oservatory in the early 1970's. Since these computers 
were to be programmed by astronomers and researchers and not by programming 
specialists, a programming language was needed that was: 

1. Easy to learn 

2. Simple to use 

3. Able to perform specific operations on large arrays of numbers at 

high speed 

4. Able to interact with a wide variety of specialized electronic hard- 
ware. 

Digital Equipment Corporation, the manufacturer of the PDP-8I, supplied 
an interactive programming language called Focal 1969, which met the first 
two criteria. Lick then made extensive modifications to Focal so that it 
satisfied the latter two. The end product of those modifications, Lick 8K 
Focal, is extensively documented in previous Lick Technical Reports. 

Although Lick 8K Focal has evolved considerably since its inception, 
its growth in certain directions has been constrained by a lack of core 
memory. Despite such useful features as the extended disk buffer, many 
operations involved in processing scanner data remain cumbersome and 
awkward to program. Further, as the volume of data to process has grown, the 
PDP 8I's have become increasingly backlogged. But without additional core 
memory, little could be done to improve Focal. 

When less expensive add-on core memories for the PDP-8I became available 
in the mid-1970's, the idea of developing a more efficient Focal became 
feasible. The decision wae made to upgrade the PDP-8I's to their maximum 
memory capacity of 32K of core, and to expand Focal to utilize this addi- 
tional memory. Work on 32K Focal began in 1975 -by Jack Baldwin, and con- 
tinued through My 1976 at which point it was taken over by Bob Kibrick. 


This report describes the result. 


b) Major differences between Lick 8K Focal and Lick 32K Focal 

1. Where 8K Focal had 2 core data buffers of 512 channels each, 32K 
Focal has 5 core data buffers of 2048 channels each. As a result, it is much 
Simpler to manipulate 2048 channel scans in 32K focal. 

2. In the 8K Focal System only a few Focal functions could be in core 
memory at any one time. Because of this space limitaton, the Focal functions 
were stored on the disk. If a Focal function was not already in core at 
the time it was needed, a copy of it was read from disk to core. Read time * 100 msec. 

In the 32K Focal system, all of the Focal functions (excepting those 
brought in with the XNAM: command) are core resident for faster access. 

3. The text area for Focal programs has been expanded so one can write 
larger programs and thus not have to do as much chaining between programs. 

4. The DF 32 disk is no longer used. Data can now be transferred 
directly from buffers to IBMtape without having to be written onto the disk. 

5. The Lick Focal functions are now faster and simpler to use. 

6. XNAM overlays written for the 8K system cannot be used on the 
32K system, and vice versa. 

7. Focal programs written for one system generally will not work the 
Same on the other system. 

8. Two XNAM: overlays can be in the core memory at the same time. 

9. The 8K Focal and 32K Focal systems record scans on Dectape in 
different formats, although they both use the same amount of space for each 
scan. 

10. A total of 36 scans of 2048 channels each could be stored on a 
Dectape under the 8K system; 46 scans can be stored on a Dectape using the 
32K system. As a result, the scans are numbered differently inthe 2 systems. 
8K scan O starts in block 500 octal (320 decimal) while 32K scan O starts in 
block 0. 8K scan #N is located on the same place on the Dectape as 32K 
scan #N+10. 

11. In the 8K Focal System, if one erased the CRT and then immediately 
tried to write on the screen, the resulting image would be too faint. As 
a result, one had to insert Focal delay loops to wait 0.5 seconds between 
CRT erase and CRT write commands. In 32K Focal, all commands which write 
on the CRT check a hardware flag and wait until the CRT has finished erasing 


before beginning to write on the screen. 


12. In the 8K Focal System, if a Lick Focal function was called with 
invalid arguments or asked to operate on invalid data, the function would 
often proceed with its calculations and return a result as if nothing were 
wrong. This would make program debugging difficult. In the 32K Focal 
system, wherever possible, if a Lick Focal function detects invalid arguments 


or data, it will print a specific error message and stop execution. 


c) Similarities Between Lick 8K Focal and Lick 32K Focal 

1. The layout of the program Dectape is very much the same for both 
systems. X NAM Overlay 1 begins on block 134 (octal); Program 0 begins in 
block 160 (octal). Thus, the Focal tape copiers can still be used on 32K 
Focal tapes. 

2. The 32K Focal system and 8K Focal systems record scans on tape in 
different formats, although they both use the same amount of space for each 
scan. However, the 32K system can read scans written in either format and 
will automatically perform any needed conversions. The 32K system can 
also write scans in either format. At present, (Jan/77) the 8K system can 
only read and write scans in 8K format. 


3. ‘The bootstrap procedure for 32K Focal is the same as that for 8K Focal. 


d) The 5 Core Data Buffers 

The object of 32K Focal is to make processing scans of 2048 channels 
both faster and easier. Five core data buffers are available, each with 
a capacity of 2048 channels. Two different modes of addressing allow one 
to treat these buffers as 5 separate 2048-channel buffers, or to treat 
groups of these buffers as if they were a single, longer buffer. For 
example, 2 of the buffers can be treated as if they were a single 4096- 
channel buffer; or 5 of the buffers could be treated as if they were a 


single 10,240 channel buffer. 
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The above diagram illustrates how the same area of memory can be addressed 
in a variety of different ways. Specifying channels 0-2047 of buffer 4 
(hashed in area) is equivalent to specifying channels 6144-8191 of buffer 1, 
or channels 8192-10239 of buffer 0. The different addressing modes are best 
illustrated by example. 

FTOTL is a Focal function which sums up the counts in a specified 


number of channels. The form of the FTOTL command is: 


Buffer nunber 

Starting channel number 

Number of channels to process 

Set D = FTOTL (A,C,N) 

To get the sum of the counts in channels 1-20 of buffer 0, one could code 
Set D = FTOTL (0,1, 20). To get the sum of channels 2051-2055 of buffer 0 
one could code Set D = FTOTL (1,3,5), since channel 2051 of buffer O is 
equivalent to channel 3 of buffer l. 

It is often the case that one wishes to treat the buffer area as 5 
distinct buffers of 2048 channels each, and to have a command operate on 
all 2048 channels of each such buffer. To simplify coding in these cases, 
if the starting channel number (C) and the number of channels to process (N) 
are both left to default to zero, then the first 2048 channels of a buffer 
are processed; that is. 

Set D = FTOTL (A) is equivalent to Set D = FTOTL (A,0, 2048). In 
the case wtereN is zero but C is not, the processing begins in the channel 


specified by C and continues through channel 2047 of that buffer; that is 


Set D = FTOTL (A,C) is equivalent to Set D = FTOTL (A,C, 2048-C) 
(to apply this rule in cases where C > 2047, adjust A to bring C 
into the range 0 <= C <= 2047, i.e., Set D = FTOTL (0,2051) is 
equivalent to Set D = FTOTL(1,3), which is equivalent to Set D = 
FTOTL (1,3,2045). 
On the other hand, one may often want to operate on scans longer than 
2048 channels, and that is the reason for the other mode of addressing. To get 
the sum of channels 0-4095 of buffer 0, one would code Set D = FTOTL (0,0,4096). 
To sum channels 4096-10239 of buffer 0 one would code Set D = FTOTL (0, 4096, 
6144) or equivalently Set D = FTOTL (2,0,6144). In this last case, one is 


effectively treating the buffer area as if it were only 2 long buffers -- buffer 

OQ which has 4096 channels and buffer 2 which has 6144 channels. Note: operations 
need not begin or end on channel numbers which are even multiples of 2048. To 

sum up channels 2001-10000 of buffer 0, one would code Set D = FTOTL (0, 2001, 8000). 

A few words of caution are in order on this point. The dual mode of ad- 
dressing allows one to concisely refer to scans of exactly 2048 channels while 
at the same time providing the flexibility to manipulate in a single command 
scans in excess of 2048 channels. However, the ability to refer to the same 
area of memory in more than one way also makes it easier to get confused and to 
try to use the same area of storage at the same time for mutually exclusive 
purposes. 

For example, if one wants to maintain a long scan of 6144 channels in channels 
0-6143 of buffer 0, he must remember that in essence he is also occupying channels 
0-2047 of buffers 1 and 2. Buffers 3 and 4 are still safe to use in this case 
as they do not overlap with the area in which the long scan is being stored. 

If one is only working with scans of 2048 channels and as long as there is 
no need to specify a non-zero number of channels (N), then different buffer numbers 
will never refer to overlapping areas of memory. That is, Set D = FTOTL (A,C) 
and Set D = FTOTL (B,C) will always reference mutually exclusive areas of memory 
(provided A # B, of course!). 

It is also possible to specify combinations of buffer numbers (A), starting 
channel numbers (C), and numbers of channels to process (N), which are plainly 
illegal, and some which perhaps should be legal but are not. Here are some 


examples of INVALID commands: 


Set D = FTOTL (5) - Buffer 4 is highest legal buffer number 
(on a machine with 32K memory - see next 
section). 

Set D = FTOTL (3,5100) - The highest legal channel in buffer 3 is 4095. 


Set D = FTOTL(336144,10240}- Nice try but it won't work. Although channel 
6144 buffer 0 is equivalent to channel 0 
buffer 3, channel -6144 buffer 3 is not equi- 
valent to channel 0 buffer 0. Negative chan- 


-nel numbers are completely taboo: 


ul 


Set D = FTOTL (0,2047,-2048)-Nice try again; no you can't start at the 
righthand side and count backwards to the left. 


Negative numbers of channels to process are also taboc 


10 


If you use any of these illegal varieties of buffer specifications, Focal will 
print an error message and refuse to execute the command. (Error messages 


are listed in Appendix B.) 


fmm eee 


It is also possible to come up with specifications of A,C, and N which, 
although not really proper, will be executed without giving an error message. 
As an example 
Set D = FTOTL (3,0, 8192) is not really correct in that there are only 
4096 channels available if one starts at channel 0 of buffer 3. No error mes- 
sage is given and the command is treated as if it had been Set D = FTOTL (3,0, 4096). 
As a final note on the data buffers, it should be noted that although Lick 
32K Focal is designed to operate on a PDP-8 with 32K of core memory, it can still 
be used on PDP-8's with less than 32K of core. If less core is available, fewer 
buffers are available. The following table relates the number of available buf- 


fers to the amount of core memory available. 


Amount of Memory Available Buffer Numbers 
32K Os. By oy 5. 4 
28K Oe 
24K Os ds 2 
20K Of. ok 
16K 0 
12K No buffers available 
Extended instructions not usuable 
8K No buffers available 


Extended instructions not available 
Only 1 X NAME buffer available 


4K Nothing available. 

When Lick 32K Focal is bootstrapped, it automatically determines the amount 
of core memory available on the machine, and adjusts itself accordingly. Attempts 
to use buffers that are not available will be diagnosed by Focal as errors. 

Thus, the command: 


Set D = FTOTL (2) 
will work correctly on machines with 24K or more of core, but will cause an error 


message to be printed if used on a machine with less than 24K of core. 
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II, 32K FOCAL Functions 


a) Equivalent Functions 


The following Lick FOCAL functions work the same in both 8K and 32K FOCAL 
and are always available: 


P = 0: Pen Up. P = 1: Pen Down, Pause for 
a time about 10*T msec, Pen motion needs 
about 100 msec, which can be used for 
computation, or by the pause. 


X CPEN(P,T) 


X DIS (X,Y) ———_-—_--Store a dot on the CRT at location (X,Y). 
Full scale is 1023. 


X GO(S,L) Like ordinary GO, DO but with computed arguments, 
X DO(S,L) (Subroutine S, line L.) 
X END (0) Return to calling program; next line 
Quantity to be displayed (277 nN = 273) 
LED number for lowest precision digit (1-8) 
Number of digits 
Non-zero to display blanks 
Non-zero to suppress overflow warning 
aula to suppress negative number check 
X LED(X,L1,NL,B,0,M) Display numbers on LED digits on switch panel 
X origin # 0 
Y origin # 0 
{ {= Letter size 
X STAT(X,Y,S) Direct all future printing to the CRT. Redirect 
printing to teletype if X = -1 or for CTRL-C, or 
for any error diagnostic, 
X SWIT(- 1) Erase CRT (Can be followed immediately by CRT write). 


X SWIT(0,L) Load lamps L. Lamps are coded 1,2,4,8,16, 32. 


i] 


FSWIT(N,S,0,0,M) ——————- Read switch N,S to D. Set M=4095 to read all of 
group N at once (Use 4094 to read all of group 3). 
M=129 would read switch 1 & 8, weighted. M = 0 to 
read only switch N,S. 


SET D 


SET D 


FSWIT(3,11,X,Y) ——————- Display joystick marker on CRT at (X,Y). When 
switch 3,11 is pushed, return 1024*X1 + Yl 
where (X1,Y1) is final marker location on CRT. 


Il 


SET D = FVAR(0O) ———-—————- Set D to end point of FOCAL variable list. 


X VAR(D) Erase all variables defined beyond point D in list. 


X WHAT (N,M) ——————— Type the names of M user generated overlay programs 
as found on program DECtape, starting at overlay #N. 


b) Program/NAME Functions 


The following Lick Focal Commands are also always available, but are slightly 


different than their 8K counterparts 


X NAME (N, F) 


X CALL(N,S) 
(For greater versatility in 


calling, see the X CADO 
command, pg. U7) 


Important Notes: 


- Reads into name buffer #F and makes 
available for use the commands from 
user generated machine language overlay 
#N. There are 2 name buffers (numbered 
1 and 2) on machines with 12K or more 
of core; only name buffer 1 is availa- 
ble on machines with less than 12K of 
core. 
Note: A) F # 2 is treated as if it 
were F = 1 ; 

B) X NAME(0) is treated the same 
as X NAME(1), except that X NAME (0) 
will always cause a fresh copy of over- 
lay #1 to be read in from tape. The 
commands in NAME overlay 1 are read 


into name buffer 1 at bootstrap time. 


- Call Program N from Dectape. If S>0O, 


starts program N at subroutine S. 
(Code $*128 + L to start program N at 
line L of subroutine S). Use X END(0) 
to return to the line following the 


X CALL command in the calling program. 


A) It is illegal to use either X CALL or X END from inside a DO group 


or FOR loop. 


B) If FOCAL's text area contains new or modified text that has not yet 
been filed (See X FILE command below), then execution of X CALL or 
X END will cause FOCAL to type "REALLY?" on the teletype, and then 
to wait for a reply. Any reply other than "Y"' will cause the X CALL 
or X END command to be supressed, and the contents of the text area 
to be preserved, A reply of "Y'' will cause the command to proceed 
and the contents of the text area to be lost. 

C) If X CALL is used to address a program area on the Dectape that does 
not contain a FOCAL program, the following action is taken: 
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1) If the program area addressed by X CALL 
is not completely empty, the error message 
BAD PROGRAM nnnn 

is printed, where nnnn is an octal number 

indicating the number of non-empty (i.e., 

non-zero) locations in the program area. 

Focal's text area is erased, and is marked 

as not containing any program. 

2) If the program area addressed by X CALL 

is completely empty, no error message is 

printed. Focal's text area is erased, 

and marked as containing the requested 

program. 

X  FILE(N) File program N on Dectape. If program N 
was not first called in using X CALL (N), 
the message 

OK? 
will be printed. If the previous program 
(or perhaps old data on the tape) is to 
be overwritten, type "Y.'' To avoid writing, 
type "N'' or CTRL-C. The program is still 
intact in core after being filed (or not 
filed) on tape. X FILE also prints last 
| address used for text;highest address=1256/7, 
A note on adding new programs: | 
Before one starts typing in a new program, one should decide which pro- 
gram number to try to file it under. Next, one should check to see if that 
program number is in use. To check if the area on the tape for program N is 
in use, type X CALL(N). If this area on the tape contains data or an over- 
lay, one will get the message 
BAD PROGRAM nnnn 

If this happens, another program number should be used (unless one doesn't 

care about losing the data or overlay). If one doesn't get the message 

BAD PROGRAM nnnn 


then the area of tape referenced by X CALL(N) either contains a valid Focal 
program or is empty. Type W to list the program. Continue hunting for an 
available program number until you find an empty portion of tape or until 


you find a program that you no longer need. 
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c) Buffer Independent DECtape I/o Functions 


X PUT (W,B,U,I) - Store integer I in word W of Dectape 
block B on Dectape unit U. 

SET I = FTAK (W,B,U) - Return single precision value of word W 
in Dectape block B from Dectape unit U 
(Note integers have values of 0 <=I<=4095) 

X STOR(W,B,U;V) - Store variable V starting at word W of 
Dectape block B on Dectape unit U. 
(Note Semicolon!) 

SET V = FASK(W,B,U) - Return 10-digit floating point format 
variable starting at word W in Dectape 
block B from Dectape unit U 
(Note - each floating point variable oc- 


cupies 4 words) 


Notes on the use of W,B, and U in PUT, TAK, ASK, STOR 

There are 129 words in each block numbered 0-128 

There are 1474 blocks on a Dectape, numbered 0-1473 

If one counts total words on a Dectape, starting at word 0 block 0, there 

are 190146 words, numbered 0-190145. The location of a given word on the 
Dectape can be specified in a numberof different ways. For example, word 

128 block 1473 is equivalent to word 190145 block 0; word 0 block 1 is equi- 
valent to word 129 block 0. 

If B=W=0, the previously used Dectape location will be incremented (by 1 for PUT 
and FTAK; by 4 for STOR and FASK) and taken as the Dectape location to be used 
for the current command. However, if the unit specified (U)is not the same as the 
immediately previously used unit, an error message will be given. 

One block of the Dectape is usually kept in core. If a negative unit number is 
specified,(use -8 for -0 nD and the desired block is already in core, the Dectape 
will not be re-read or rewritten. A block in core will only be saved in 

this case when a different block needs to be brought in. This process is called 


data chaining and saves time since the Dectape doesn't have to be read and written 


as often. 
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If a positive unit number is used, the specified block is always re-read 
from the Dectape, regardless of whether it is already in core. In the case of 
PUT and STOR using positive unit numbers, the desired block is read into core, 
modified, and then immediately written back out to tape. 

Although data chaining is faster, it is more dangerous and should be used with 
caution. Since a block that has been brought into core and modified is not 
written back out to tape until a different block is read in, one could lose 
information and also unintentionally write on the wrong tape if one switches 
tapes while data chaining is in progress. To avoid this problen, and to also 
provide other useful information, a companion command to PUT/TAK/ASK/STOR has 


been implemented, called CLOS. 


X CLOS (0) - Closes the Dectape buffer. That is, if the 
core buffer contains a chained tape block that 
has been modified and needs to be written to 
tape, this will cause it to be written. IF 
DATA CHAINING HAS BEEN USED, THIS COMMAND SHOULD 
BE GIVEN BEFORE SWITCHING TAPES OR UNITS. 

X CLOS (-1) | - Purges the Dectape buffer. That is, if the core 
buffer contains a chained tape block that needs 
to be written to tape, X CLOS(-1) will turn off 
the data chaining flag and make it appear as if 
the block had been written to tape, without 
actually writing it. The contents of the Dectape 
buffer remains the same. X CLOS(-1) should 
not normally need to be used unless you get into 
trouble. 

SET D = FCLOS(1) - D is set to the absolute word address of the 
next available word on the Dectape. X PUT(127, 
1473) followed by SET D = FCLOS(1) would cause 


D to be set to 190145. 
It should be noted that certain other commands use the Dectape buffer for 


scratch space - in particular X WHAT uses the buffer. These commands ef- 


fectively execute an X CLOS(0) before they begin execution. 
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A Note on Write Protection 


Lick 32K Focal has a write protection feature that prevents commands 
like X PUT and X STOR from writing over. the Focal system, the user generated 
machine language overlays, or the user's Focal programs up to program #65. 
Only write operations to unit 0 are protected -- writes to any other unit can 
reference any block. 

Different Focal tapes may have different numbers of blocks protected. 
Currently , Jan./77,(and this is likely to change) write attempts below block 
640 decimal (block 12000ctal or start of program -66 or start of scan 20) are 
prevented. Please note that the physical reel of tape itself is not pro- 
tected -- it is only protected when it is mounted on unit 0; the same physi- 


cal reel of tape is unprotected if it is mounted on a unit other than 0. 
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d) Single Buffer Functions 

The following instructions are available only on machines with 16K or 
more of core, Although these commands operate on only one buffer, this buffer 
can be up to 10,240 channels long, Remember- for functions of the form 


X func(A,...,C,N), unless otherwise noted, the following compact forms apply: 


X func(A) is equivalent to X func(A,...,0, 2048) (See section I-d, ''The 
; ‘ Five Core Data Buffers" 
X func(A,...,C) is equivalent to X func(A,...,C,2048-C) on page 7) : 
Buffer 


Positive or negative shift 
(Fractional shift in units of 1/4096th 
of a channel) 


Starting channel 


Number of channels 


X SHOV (A, 4096*D,C,N) A(x) = A(xt+D), where A(x) means channel x 


of buffer A. Shifts scan by both integral 

and fractional amounts, If N=0, channels 

shifted past channel 0 or 2047 are lost. 

If N#0, channels can be shifted past 

buffer boundaries, For example, X SHOV(0,8192,20) 
will shift channels 20 to 2045 of buffer 0 into 
channels 22 to 2047; the original contents of 
channels 2046 & 2047 are lost. X SHOV(0, 8192, 20, 
2048) will shift channels 20 to 2067 into channels 


22 to 2069, 
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Buffer | 
Starting channel 
Number of channels 
Returns contents of peak channel if = 0 
Returns peak channel # if > 0 
Returns # of monotonically increasing channels 
from C if < 0 
If non-zero, ignore channels whose content 
/ is less than DEF. 


S D = FPEAK(A,C,N,MODE, DEF) 
Buffer 
Starting channel 
6 nm i of channels 
S D = FTOTL(A,C,N) Total of counts in N channels 
Buffer 
Starting channel 
/ ff Number of channels 
X ERAS (A,C,N) A(X) = 0; for X = C to C+N-1 


Channel 
J Buffer 


S D = FCHAN(C,A) D = A(Q returns value of specified channel 


Channel 
Buffer 
a Variable to store 


KR BDIT(C A; D)) A(c) = D set value of specified channel 


Buffer 

Increment 

Initial value 
Starting channel 
Number of channels 


X PUTN(A,INC,X0,C,N) Load N successive channels with linear data: 
XO, XO+INC, X0+2*INC,....X0+(N-1)* INC 


1 
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S D = FZCOM(R) Resets plotting origin to R, returns previous 
plotting origin. Used with X CRT to plot scans. 
Plotting origin is set to 4095 bootstrap. 


Buffer 
Double precision vertical scale 
Double precision vertical offset (+ or -) 


Number of CRT sweeps if >0 (default 3) 
Calcomp without dots if -1 
Calcomp with dots if -2 


Points/chan if >0 

Chans/point if <0 (default 2) 

Starting channel 

Number of channels 
Faia X value on CRT 


X CRT (A,SC,OR,SW,P,C,N,X0O) Display scan on CRT or Plot on calcomp 
Note: if P> 0 and P <= 4, then each 
channel value will be displayed using P 
adjacent dots on CRT. For P> 4, only 4 
adjacent dots will be displayed. (Note, to 
display P adjacent dots when P> 4, code 
P+4096) 


X distance 
Y distance 


=0 for line Y, then line X 
#0 for diagonal line 


=Q for Calcomp plotter 
#0 for CRT 


X origin on CRT 
Y origin on CRT 


X COMP (X,Y,D,SW,X0, YO) Draw a line Y units in Y, 
* then X units in X. Move diagonally 
if D # 0. 


IMPORTANT NOTE ON CALCOMP PLOTTING 


In order to speed up data taking operations, the X CRT and X COMP commands 
have been modified so that they can be interrupted by the scanner memory (see 
Appendix C). 


Buffer (BUFFER SPANNING NOT ALLOWED) 
Scan number (0-45) 

Dectape unit (0-7) 

Format selection (8K Format if # 0) 


io control (returns -1 for errorif # 0). 


Set D= FMSAV(A, S, U,M, E) Saves 2048 channel buffer A and its 31 
word ID area as scan S on Dectape unit U.* 
Translates to 8K scan format ifm # 0; 
otherwise writes without translation. If 
E # 0 returns control to focal with a 
value of -1 if tape error occurs; other- 
wise types TAPE? TAPE? ETC. (Note: unit 
0 is write protected against MSAV - see 
PUT and STOR) also note: if M# 0 the 
buffer is left in 8K scan format after 
the write has completed. To translate 
buffer back to 32K format, use X REFM conm- 
mand. 


—Buffer (BUFFER SPANNING NOT ALLOWED) 
: Scan number 
Unit 
Format 
/ , control 


Set D = FMGET(A, S, U,™, E) Reads scans from dectape unit U into 
2048-channel buffer A and its 31 word 
I.D. area* If M= 0, performs format 
conversion automatically if needed. If 
MZ 0, forces 8K to 32K translation to 
be done (even if data is already 32K). 
Error control same as in MSAV. 


Buffer (BUFFER SPANNING NOT ALLOWED) 
>=0 to translate from 8K to 32K format 
< 0 to translate from 32K to 8K format 


X REFM(A, MODE) Translates Buffer A and its associated 
I.D. area according to MODE* 


*Each of the five 2048-channel data buffers has a 31 word I,D. area 
associated with it, (See page 22) 


Buffer (BUFFER SPANNING NOT ALLOWED) 


Starting word 


Number of words to operate on 
(Must be <= 2048) 


Number of places shifted (ignored if 
mode # 0) >0 shifts right;<0O shifts left 


—0° HE LO HE LO’ o.c HL LO MLO: L0...L0°HL BL. 

= circular shift 

#0 ‘0° -LOy.3LO Hl“ ..4s<.HIMAl LO Hi: LO...H1 “LO 
X EXCR(A,S,L,D, MODE) General Purpose Exchange Routine performs 


exchange on an area L words (not channels) 
long beginning at word (not channel) S 

in buffer A. Mode specifies type of ex- 
change. If mode = 0, exchange is a 
circular shift of D places starting at 
word S in buffer A. (D> 0 to shift 
right, < 0 to shift left). 


If mode > 0, takes L/2 low order words 
followed by L/2 high order words, starting 
at word S in buffer A, and pairs them 

in order HI LO HI LO...HI LO. (Similar 

to X pair in 8K Focal) 


If mode < 0, takes L/2 pairs of words 
(HI,LO) starting at word S in buffer 

A, and shuffles them into L/2 low order 
words followed by L/2 high order words. 
Note: If mode # 0, L must be an even 
number. 
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e) IBM Tape Functions 


The 9-track, IBM compatible tape transports connected to the PDP 81 
computers can be controlled using commands in the Lick 32K FOCAL language. 
These commands allow reading or writing of single records of up to 2048 
channels of data. The PDP 81's use two 12-bit words per IBM 32-bit word, 
ignoring the most significant 8 bits of each IBM word. Positive and nega- 


tive numbers of magnitude less than reo | are handled correctly, 


Data is written as "records" or "blocks" at a density of 800 8-bit 
bytes per inch, up to 8200 bytes per record (8192 bytes data, 8 bytes 
control information). Records are separated by a record gap of 0.6" or 
larger of erased tape. "Tape Marks" or "End of File'' marks are followed 
by about 3.5" of erased tape. In order to locate a particular record on 
tape, one must count records from the beginning of the tape, or one may 


count "End of File" marks and then count records within a particular file. 


When writing tape, a "read after write" error test is made, If an 
error is detected, the tape will backspace over the bad record, erase 5" 
of tape, and try again on the next segment of tape. The IBM format allows 
gaps of any length greater than 0.6", so that large segments of bad tape 


can be safely skipped over by the writing program, 


The following IBM tape commands are available: 


. Buffer (BUFFER SPANNING NOT ALLOWED) 


Starting Channel 
(-1 to read 31 words into I.D. area A) 


Number of Channels (ignored if C= -1) 


SET D=FREAD(A,C,N) Reads N channels from IBM tape to buffer A 
starting at channel C. Reads to end of 
buffer if N=0. 

D=4096 for normal read, 

D=0 for end of file. Tape left positioned 
past end of file. 

D is negative if read parity error occurs 
more than 3 times; reads anyway. 


Notes; | 
1. If the number of channels on tape record exceeds N, excess channels 
are ignored, and no error indication is given, These excess channels 

are skipped completely; they will not be read by the next READ. 


2. If the number of channels on tape record is less than N, only available 
channels are read. Remaining channels in core are not modified, and 


no error indication is given. See LREC command for READ length, 


Buffer (BUFFER SPANNING NOT ALLOWED) 


Starting channel 
(-l1 to write 31 words from I:D. area A) 


Number of channels (ignored if C= -1) 


SET D=FWRIT(A,C,N) Writes N channels to IBM tape from buffer A 
starting in channel C. Writes €& end of 
buffer if N=0. 

D=0 if write successful on first try. 

D>O gives count of number of segments of 
tape that had to be erased before 
write was successful, 

D<O if write fails after 3 attempts, Tape 
is left positioned prior to start of 
last bad write attempt. 

Notes; 

l, If C= -1l, the 31 word I.D. area is written. This I.D. areawill appear 
on tape as a 16 channel record, 

2. In order to detect tape slippage, FWRIT will time out if it does not 
find a record gap pulse within 0.1 seconds of finishing a write. If 
slippage is detected, FOCAL quits with a ?2-5151700.00 error message, 
If this happens, try cleaning tape capstan, 

3. When writing many records, or whenever you are writing to a fairly 
full tape, the tape status should be checked after every write (See 
FIBM command below). When "end of tape'' is sensed after a write, 
two end of file marks should be written (See X EOF command below). 
Then the tape should be rewound, unloaded, and a new tape mounted in 
its place. If one fails to check for end of tape, in the course of a 
long aight of data taking, one might fill a tape and end up winding 
the tape off the end of the reel, thus losing data and time. 


X IBME (0) ———-—————_ Erases 4 feet of tape. 


X EOF (0) —————-——- Writes an end of file mark. Tape is 
left positioned past file mark, 


Notes; 

1. In order to do any operation that writes on the tape, a WRITE RING 
must be inserted into the back side of the tape reel hub, If one 
uses any of the FOCAL commands which write on the tape (WRIT, EOF, 
or IBME) on a tape without a WRITE RING, FOCAL will start printing 

PROTECT | 
every 2 seconds. If writing is actually desired, and if the writing 
is to commence at the start of the tape, then one should: 

a) Switch tape drive to OFF LINE. (FOCAL now starts printing 

OFF LINE instead of WRITE RING.) 

b) Rewind and unload tape. 

c) Insert WRITE RING into back of tape reel hub, 

d) Remount tape and position at load point, 

e) Switch tape drive to ON LINE. FOCAL will stop printing 

OFF LINE and will write the desired record at start of 
tape. i 


2. One can check for a WRITE RING before attempting to write by using 
the FIBM command to check the tape status, 
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SET D=FIBM(M) » D is set equal to the tape status, 


masked by M unless M=0. 


Status bit values: 


2048 - END OF TAPE 
(Use this when writing) 


1024 - TAPE READY 
(Tape unit power is on, and tape 
is tensioned, positioned on or 
past load point) 


512 - FILE PROTECT 
(No write ring is in tape reel hub - 
i,e., tape cannot be written on) 


256 = REWINDING 
(Tape drive is busy rewinding) 


128 - BEGINNING OF TAPE 
(Tape is positioned at beginning, 
i,e., load point or B.0O.T.) 


8 - ON LINE 
(Tape transport is switched on line, 
This is like the REMOTE position 
on DECtape drives; OFFLINE is like 
LOCAL) 


X RWND (0) 


Rewind up to beginning of tape (BOT). 


X HUNT (0) 


Used to locate end of -data on tape (not 
physical end of tape). Moves forward till 
double end of file (EOF) is found and stops 
following the double EOF. The teletype 
will type "EOF" each time a file mark 
passes the read head, so that one can use 
X HUNT to count the number of files on 

a tape. 


oe ie 


SET D=FADV(N,J) -——————— Advances N records. 
If J=0, stops past EOF if EOF found. 
If J#0, continues advancing past EOF. 
D is set= 4096*(# of file marks passed) 
+ # of records with parity errors 


SET D=FBAK(N, J) —————————- Backspaces N records. 
If J=0, stops past EOF if EOF found. 
Note- Two "EOF' messages are 
printed: 1 for backspacing over 
the EOF, and 1 for advancing 
back over it. D is set to 4096 
plus # of records with parity errors. 
If J#0, continues backspacing past EOF. 
Dis set = 4096 * (# of file marks passed) 
+ # of records with parity errors. 


) =0 for record length 


=e] for record number 


SET D=FLREC (MODE ) If MODE=0, D is set to the length (in channels) 
of the last record read or written on IBM tape, 
If MODE= -1, D is set to the record number 
(modulo 4096) of the last record read or written 
to IBM tape. The record number is a count of the 
number of records (including EOFs) from the start 
of the tape, 


1. The IBM tape record number counter is set to 0 by X RWND(0) 
2. File marks are counted the same as data records. 
3. The IBM tape record number counter is displayed in the MQ 
register while the tape is in motion during X BAK or X ADV. 
4, File marks do not have a defined length, i.e., if FLREC(0) 
is used immediately after reading or writing a file mark, 
the length returned is unpredictable, 
5. Remember that the IBM tape record counter counts modulo 4096; 
thus FLREC(-1)=0 does not necessarily mean one is at the 
beginning of tape. 


A FINAL NOTE ON IBM TAPE COMMANDS 


By adding 4096 to the first argument of the following commands, the 
printing of the "EOF" messages on the teletype is suppressed: 


READ HUNT ADV BAK 


ZA 


f) I.D. Functions 

Each of the 5 2048-channel data buffers has a 31 word ID area associated with 
it. All 5 of these I.D. areas are available as long as the computer being used 
has at least 12K of core memory. In addition to these 5 I.D. areas (numbered 
0-4), there is an additional 31 word I.D. area which can be referenced by using 
a buffer number of -1. All of these I.D. areas are safe over bootstrapping. 
(NOTE - Words 0 to 3 of I.D, buffer -1 are used by the P/S monitor; see App. C) 


The MSAV and MGET commands (see page 19) transfer both the I.D. buffer and 
its corresponding data buffer to and from the DECtape. However, as there is no 
data buffer -l, I.D. buffer -1 cannot be transferred to or from DECtape using 
MSAV or MGET. Neither can the IBM tape commands READ or WRIT be used with I.D.. 
buffer -1. 

The conversion table below shows the correspondence between the location 
of the I.D. words on an 8K format DECtape scan, and the 32K FOCAL I.D. buffer 
locations that these I.D. words will occupy. Note that this table applies to 
2048 channel scans; the I.D. information from a 4096 channel scan will occupy 


two separate I.D, buffers, 


CONVERSION TABLE - LOCATION OF I.D. WORDS - 8K .VS. 32K FORMAT 


8K WORD # 


| 121 122 1235 124 125 126 127 128 
8K 


BLOCK - , 

+ | 

i 1 2 3 4, 5 | y : 
ps foo foo fa fe fie fw] | 
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32K FOCAL I.D. Buffer Word Numbers are shown in corresponding box 


** Reserved for use by 32K FOCAL 


X IPUT (W,A,D,P) 


Set D=FITAK(W,A,0,P) 


X TYCO(W,A,N) 


X COTY (W,A,N) 


Word (0-30) 

Buffer 

Variable to Store 

P # 0 for double precision 


Store single (or double) precision vari- 
able D into word(s) W (and W+l) of I.D. 
area A. 


Word (0-30) 
Buffer 
P # 0 for double precision 


Read single precision variable from word 
W, I.D. area A (or double precision variable 
from words W, W+1) 


lst Word number (0-30) 
Buffer 


No. of characters (1-62) (rounded up to next 
even number) 


Accept up to a maximum of N characters 

from the teletype and pack them 2 characters 
per word starting at word W in I1.D. area A. 

If used in the function form (i.e., S D= 

FTYCO (...) ) returns the number of characters 
accepted, or -l if ESCAPE or ALTMOD was hit. 


lst word number (0-30) 
Buffer 


No. of characters (1-62) (rounded up to next 
even number) 


Starting at word W in I.D. area A, unpack 
and print I.D. information for up to a maxi- 
mum of N characters. Characters are assumed 
to be in packed format, 2 characters per 
word. Printing stops if a null character 

is encountered. PRINTS ON EITHER TELE- 

TYPE OR CRT. If used in the function form 
(i.e., S D=FCOTY(...) ) returns the number 
of characters printed. 
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g) Scanner Memory Control Functions 


X MEME (0) Erase scanner memory 


Set D = FMEMC(N) Set counting time N cycles (S 2 ' -1). 
Returns remaining counting time. Stops if N=0. 
Doesn't set time if already counting. 
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X MEMW(W,N, OR) Write N channels starting at Channel 0 (N<=2048) 
Buffer 0 of core memory to scanner 
memory, starting at scanner channel W. 
Writes Low 12 bit part if OR=0, otherwise 
writes High 12 bit part. 


Set D = FMEMR (A,B,H) Read scanner memory to core. First 2048 © 
channels read to buffer A (not read if 
A = -1) second 2048 channels read to buffer 
B (not read if B = -1) reads all 24 bits 
of each channel if H = 0; reads only Low 
12 bits if H # O (much faster). Sets D 
if counting (S D = F MEMR(...) ) 


X PAUS (N) Stop counting if N = 0, continue if N= 1. 
No change in actual live time. 
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h) Double Buffer Instructions 


(require at least 20K of core) 


Output buffer 
Input buffer 
/ Starting channel in buffer A 
Starting channel in buffer B 
/ {Number of channels 


X MOVE(A,B,CA,CB,N) Moves N channels, starting at channel CB 
in buffer B,to buffer A, starting at 
channel CA. Contents of buffer B un- 
changed 


A(x) = B(y) 
For X = CA to CA+N-1 


Y = CB to CB+N-1 


Augend register 
Addend register 
| Starting channel in buffer A 
: Starting channel in buffer B 
. i es: of channels 


X IN(A,B,CA,CB,N) Adds N channels, starting with channel CB 
in buffer B, to buffer A, starting at 
channel CA. Contents of buffer B 
unchanged 
A(x) = A(x) + By) 


For X = CA to CA+N-1 


Y = CB to CB+N-1 
Minuend buffer 
/ Subtrahend buffer 
Starting channel in buffer A 
Starting channel in buffer B 
/ / Number of channels 
X OUT(A,B,CA,CB,N) Subtracts N channels, starting with channel 


CB in buffer B, from buffer A, starting 
at channel CA. Contents of B unchanged 


For X = CA to CA+N-1 
A(x) = A(x) - By) 


Y = CB to CB4n-1 
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Multiplier/Product Buffer 

Multiplicamn Buffer 

Double Precision Constant Mereretieand 
Single Precision Divisor for scaling 
Starting channel in Buffer A 


Starting channel in Buffer B 


) 


Number of channels to process 


X DMUL(A,B,M,D,CA,CB,N) Does Double precision multiply of 
N channels starting at channel CA in 
buffer A and CB in buffer B. Result 
goes to buffer A; Buffer B is unchanged. 
Result is divided by single precision 
constant D, which defaults to l. 


A(X) = (A(x) * BCy) ) / D for x=CA to CA+N-1 

for y=CB to CB+tn-1 

Thre M # 0, Buffer A is multiplied by constant M, 

i.e., A(x) = [A(x)*M)/D] for x = CA to CA+tN-1. 
(B and CB are ignored in this case) 


Dividend/Quotient Buffer | 

Divisor Buffer 

Single precision Multiplier for scaling 

Double precision constant divisor. 

Starting channel in Buffer A 

Starting channel in Buffer B 
ff Number of channels to process 


X DIVD(A,B,M,D,CA,CB,N) Does double precision divide of N channels 
in buffer A by N channels in buffer B starting 
at channel CA in Buffer A and in channel CB 
in buffer B. Result goes to buffer A; buf- 
fer B is unchanged. Result is multiplied 
by single precision constant M, which de- 
faults to l. 


A(x) = (A(x) * M) / B(y) for x=CA to CA+N-1 
for y=CB to CB+N-1 


-~—— 


* 
If D # 0, Buffer A is divided by constant D, i.e., 
A(x) = [A(x) * M]/D for x=CA to CA+N-1 
(B and CB are ignored in this case) 


Note: Division by zero results in a value 
of zero. 


DMUL 
DIVD 
LOGB 
PUTN 
IN 
OUT 
POLY 
PUTN 


Dis 


26 


i) Notes 


A NOTE ON ARITHMETIC FUNCTIONS 


If these commands are used in the function form (i.e., S D = FDMUL CeesOtes), Js 


set equal to the number of channels in which arithmetic overflow occurred. 
3 23 


Negative overflows are set to ~(27 -1); positive overflows to +27” -1. 


Notes on Double Buffer Instructions 


If N=0, the instruction terminates as soon as channel 2047 of either 


buffer has been processed. 


Channels are processed one by one, from left to right. 


If N40 and N exceeds the number of channels remaining in either buffer, 


the instruction terminates as soon as the last available channels in either 


buffer has been processed: NO ERROR MESSAGE IS GIVEN IN THIS CASE. 


IF THE AREAS OF MEMORY IMPLIED BY (A, CA, N) AND (B, CB, N) OVERLAP, 
RESULTS MAY NOT BE THOSE DESIRED: NO ERROR MESSAGE IS GIVEN IF OVERLAP 
OCCURS: 


Overlap cannot occur if N=0 and A#B. 

Overlap is sometimes desirable; for example, a quick way to multiply a 
buffer by 2 is to add it to itself, i.e., X IN(A,A). Care should be 
exercised when specifying arguments that cause overlap to occur. 


Miscellaneous commands 


SET D=FLO(X) 


SET D=FHI (X) 


SET D=FAND(X, Y) 


SET D=FBIG (X) 
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Return as an unsigned 12-bit 
integer the low-order 12 bits 
of 24-bit signed integer X. 


Return as an unsigned 12-bit 
integer the high-order 12 bits 
of 24-bit signed integer X. 


Returns as a signed 24-bit integer 
the logical AND of the two 24-bit 
Signed integers X and Y. 


Return as a 24-bit signed 

integer the 12-bit signed 

integer in X. (The 12-bit 

number X is copied into the 

low order 12 bits of D; then 

the sign bit of X is extended 
into the high order 12-bits of D.) 
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III. 32K FOCAL OVERLAY FUNCTIONS 
a) Description 


The commands that have been described to this point are the ones most 
frequently used and as such have been made a permanent part of 32K FOCAL. 
Additional commands that are used less frequently can be added to the program 
DECtape as "overlays" using the system program TOVR (see LOTR 32K Focal System 
Description). The commands in these overlays can then be made available to a 
Focal program by using the X NAME command (see pg. 12 _ ). 

An "overlay" can contain from 1 to 10 Focal functions, depending on 
the length of each function. All ofthe functions residing in the same over- 
lay become available whenever that overlay is loaded into either of the 2 NAME 
buffers. All of the overlays described on the following pages can be used 
in either of the 2 NAME buffers. 

However overlays operating 
on the data buffers will run slightly faster in NAME buffer 2, and overlays 
using the Serial Data Multiplexer (see LOTR 16) will run slightly faster in 
NAME buffer 1. 

In the future, additional overlays are likely to be developed and de- 


scribed in other technical reports. 


b) Polynomial Overlay 


Position of coefficient (O<= POS<= 10) 
Coefficient 
X SAV(POS; COEFF) Sets coefficients for X POLY. 


Note: No X NAME commands should be 
given in between setting coefficients 
with X SAV and using them with X POLY 
because the coefficients are stored in 
the overlay area with X SAV and POLY: 
NOTE SEMICOLON BEFORE COEFF. 


Buffer 
Order of Polynomial (0<= ORDER<=10) 


Starting channel 


i Number of channels 


X POLY (A,ORDER,C,N) Generates a polynomial of order "ORDER" 
on contents of buffer A, starting at 
channel C and processing N channels. 
Coefficients are set using the X SAV 
command. Note: no X NAME commands 
should be given and in between setting 
coefficients with X SAV and using them 
with X POLY, because the coefficients 
are stored inthe overlay area with X SAV 
and X POLY! 


c) Dead fim, Extinction, Logarithm Overlay 


Data buffer 

K-lambda buffer 

256* air mass 
starting channel in A 
starting channel in B 
Number of channels 


SET D=FTINC (A,B,Z,CA,CB,N) Extinction correction. Expects a table 
of 4096*K, in buffer B (K, = extinction 
coefficient for each channel). Data in 
buffer A is multiplied by exp (KZ). 

Dis set to number of times overflow oc- 
curred. 
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Data buffer 


Dwell Time (seconds) 

1/(131072*deadtime) seconds 

Starting channel 
 ————— Number of channels 


SET Q=FTIM(A,T,D,C,N) Deadtime correction finds number of real 
counts from observed. For each channel, 
computes 

x 
sa * 
Np counts* (1 a ena ) 


where x = (counts*4096/T)*D 
Q is set to number of times overflow 
occurred. 


- Buffer 
Starting channel 
a! of channels 


X LOGB(A,C,N) 


A(X) = 10000*LOG 10(A(X)) 
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d) Peak Finding and Linearization Overlay 


SET D1 
SET D2 


/— 


FIND (A,XP,CT,CD,MW,C,N) 
FSIG(O) - Dummy argument 


FOCAL Routine to Use FIND/FSIG 


Buffer 


Peak channel 


- Continuum 


Threshold 

Minimum peak width (<4096) 
Starting channel 

Number of channels 


lst moment peak finder. This routine 
finds an accurate position for a peak 
whose approximate position is already 
known (see LOTR #12 pg. 14). 


Returns: 


D2 =< FCHAN(J+C) 
I-20 


2 J* FCHAN(J+C) 
=O. 


or D1 < 0 if error occurs 
(overflow or peak too narrow) 


1,10 SET PK=FIND(A,...,C,N); IF (PK)1.2; SET PK=(PK/FSIG(0))+C; GO 1.3 
1.20 C - error recovery | 


1,30 C 


- continue 


FIND 


Note that FSIC returns number of peak position relative to channel C. 
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Input buffer 

Threshold (Double precision) 
Replacement flag 

Replacement value (double precision) 
Starting channel in A 


Number of channels in A 


utput buffer 
Starting channel in B 


—_— 


SET D = FSCRN(A,W,B,CA,N,CB) 


Course peak finder and wild point 
destroyer. searches for peaks in buffer 

A starting at channel CA and searching 

N channels. (A peak is a series of con- 
secutive channels all of whose values are 
>= to the threshold TH). The mean 
position of each peak (truncated to 

the nearest integer channel number) is 
stored in buffer B.. The position of the 
Nth peak is stored in channel CB+N of 
buffer B. The position recorded for the 
peak is a point halfway between where the 


peak sticks up through the threshold and 
where it falls back below it again. 

— _The number of peaks 
found is returned as D and is also 
stored in channel CB of Buffer B. If 


RF40, any point >TH is replaced with RV, + 


Bin size table buffer and scrunched 
data output buffer 


Channel offset 

Unscrunched data input buffer 
Starting channel in Buffer A 
Number of Scrunched channels 
Starting channel in Buffer B 


Scrunches data from buffer B to 

a table of bin sizes in Buffer A. 

W specifies the position in the un- 
scrunched data of the eft edge of bin 
0, times 4096. For instance, the 
middle of channel 1 has W = 6144 
(1.5*4096). The bin size table con- 
tains the number of unscrunched chan- 
nels, times 4096, in each scrunched 
channel. Bin sizes must be greater 
than or equal to 0. 
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e) Sweep,Time, Position Overlay (Uses Serial Multiplexer) 


O for Mux unit 3; 1 for Mux unit 4(coude) 
X MCEN(C,0,0,M) Offsets sweep center by C (+, -) 


QO to suppress ramp; 1 for normal sweep 


Sweep center (+,-) 


0 to write; 1 to read 
ff O for MUx unit 3; 1 for Mux unit 4 


X MEMX(N,C,R,M) Loads X sweep 


Sweep center (+,-) 


0 to write; 1 to read 
fo O for Mux unit 3; 1 for Mux unit 4 


X MEMY( 0,C,R,M) Loads Y sweep 


5-PST calendar 
4-UT calendar 
3-Sidereal calendar 
2-PST clock 

1-UT clock 
0-Sideral clock 


SET D=FTIME (C) Returns time in seconds or date coded 
- 3600*month + 60*day + year where Year 
is the last 2 digits of the year. | 


<0O for HA in seconds of time 


=0 for RA in 1/10's of seconds of time 
/ >0 for DEC in seconds of arc 


SET D=FPOSN(C) | Reads telescope position 
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f) Cross correlation overlay 

Data buffer 

Smoothing function buffer 
Starting channel of data in A 
Number of data channels to process 


Starting channel of smoothing function 


Length of smoothing function 


eee precision divisor 
SET Q=FCORL(A,B,CA,NC,CB,NS,D) Convolves data in buffer A with 
smoothing function in buffer B. 
Computes: 


A(J)=(A (J) *B( CB) +A(J+1)*B(CB+1)+... 
...+A(J+NS-1)*B(CB+NS1))/D; for J=CA,CA+NC-NS 
A(J)=0 ; for J=CA+NC-NS+1,NC 


Notes 


1. Number of channels to process (NC) MUST BE NON-ZERO. 
NC=0 will give an error message. Use NC=2048 to process 
a full 2048 channel buffer. 


2. Length of smoothing function (NS) MUST BE NON-ZERO. 
NS=0 will give an error message. 

3. NS must be less than or equal to NC. 

4. Single precision divisor D defaults to l. 


5. Result Q is set to number of times overflow occurred. 


Buffer 
Starting channel 
GE of channels 
X FLIP(A,C,N) Reverse content of channels 


A(C) = A(C+N-1) 
A(C+1) = A(C+N-2) 
A(C+N-1) = A(C) 
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Debugging utility overla 


le 


SET D=FZAP (FLD, LOC, VER, REP) 


SET D=FADDR(0) 
SET D=FIELD(0) 


SET D=FDEC (X) 


SET X=FOCT(D) 


Field 
Core address 
Verify value 


Replacement value 


Inspects, verifies, and replaces 
specified location in core memory. 
Returns in decimal-coded octal the 
contents of location LOC in field FLD. 
FLD, LOC, VER, and REP are all specified 
in decimal-coded octal. 

If either VER or REP is non-Zero, | 
replaces the contents of LOC in field 
FLD with the value REP, provided that 
the value of VER identically matches 
the current contents of LOC. If VER 
does not match, location LOC is not 
changed, and an error message is 
printed. 

If FLD=LOC=VER=REP=0, returns in 
decimal-coded octal the contents of 
the next sequential location. This 
feature is useful for core dumps, and 
can spill across field boundaries, 


Returns in decimal-coded octal the 
core address of the last location 
referenced with ZAP, 


Returns in decimal-coded octal the 
memory field of the last location 
referenced with ZAP. 


Returns decimal value of decimal-coded 
octal number X, TYPE FDEC(7/77/7) would 
print 4095 on teletype. Only accepts 
numbers from 0-/7/7/7/7, 


Returns in decimal-coded octal the 

value of decimal number D. TYPE FOCT(409 
would print 7777 on teletype, Only 
accepts numbers from 0-4095, 
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Function word 


/ Bc, 1 = Private 
SET D=FMPX (FUNC, DATA , BUS) Transmits function word FUNC and 
data word DATA to serial multiplexer. 
FUNC and DATA are both specified in 
decimal-coded octal, Returns data 
received in decimal-coded octal . 


SET D=FMPX(650) would read data from 
Cable 8, Unit 5, 


X MPX(4320,20) would send Pulse 1 to 
Cables 8 and 18, Unit 3, 


See LOTR #16, page 5. 


Instruction field 
Data field 

Entry point address 
AC contents 


MQ contents 


Link value 


I 


SET D=FJMS (IF, DF, EPAD,AC,MQ, LINK) Does a PDP-8I JMS machine command 
to location EPAD in field IF. 
Immediately prior to executing the JMS 
the data field is set to DF, the AC to 
AC, the MQ to MQ, and the link to LINK. 
IF and DF must be in the range 0 to 7, 
EPAD, AC, and MQ are all specified in 
decimal-coded octal. LINK can only be 
O or 1. Result D is set to 24-bit 
contents of AC and MQ upon eventual 
return (if ever) to FOCAL. 


Instruction field 
Data field 

Entry point address 
AC contents 

MQ contents 


Link value 


) 


SET D=FJMP(IF,DF,EPAD,AC,MQ, LINK) Does a PDP-8I JMP machine command 
to location EPAD in field IF. 
DF, AC, MQ, and LINK are set as 
described in FJMS instruction above, 
It is unlikely that control will ever 
return to this command. 
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h) Intensity map overlay 


Data buffer 

X origin 

Y origin 

Spacing between lines (X) 

Counts per dot 

Starting channel 

[—~ Number of channels 

X LOOK (A,X,Y,ST,SC,C,N) Draw an intensity map. Uses low 12 bits 
of channel, only. Plots N vertical lines 
of varying density, starting at X,Y, with 


X spacing ST, intensity scale factor SC, 
starting at channel C in buffer A. 


il 
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IV. 32K FOCAL UPDATE - June 20, 1977 


Significant changes have been made to the 32K Focal System. The current 
version of 32K FOCAL (version 77B) is described in Lick Observatory Technical 
Report #21, "32K FOCAL User's Guide" (Feb. '77). Effective June 20, 1977, 
version 77B of 32K FOCAL was replaced by version 77C*. This update describes 
the differences between the two versions, and the updates to be made to 


LOTR #21 so that it will correspond to version 77C. 


The differences between version /7B and 77C fall into the following areas: 
I. Modifications/corrections of resident functions 
II. Corrections of overlay functions 
III. Addition of new resident functions 
IV. Addition of new overlay functions 
V. Relocation of resident functions 


VI. Correction of inherited bugs. 


Robert Kibrick 


The version number of any 32K FOCAL System DECtape or floppy disk appears 


in the title line that is printed whenever a FOCAL WRITE command is 


executed. 
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I. MODIFICATIONS/CORRECTIONS OF RESIDENT FUNCTIONS 
A. Corrections 
1. SET D = FMEMR (A,B,H) (See p. 23, LOTR #21) 
The "read only low 12 bits" option (H # 0) now works correctly. 
In version 77B, use of this option would give correct results, 
but would actually run slower than if all 24 bits were read. 
2. SET D = FCHEK (0) (See p. C-3, LOTR #21) 
Counting time display now counts down correctly to 0. In version 
7/8, counting time display would count down past O and leave 
a final display of 4095. Counting time now counts down in 
minutes/seconds; in version 77B countdown was in seconds only. 
B. Modifications 
1. X CALL (N,S,Q) (See pgs. 12-13, LOTR #21) 
a) Calls can no longer be nested to 10 levels as could be 
done in version 77B. Attempts to use the nesting option 
(Q # 0) now generate a ?5422700.00 error message. Nested 
calls can now be done using the new CALL/DO function 


(See X CADO command, pg. U/ of this update) 


Changes to text of LOTR #21 


1) p. 12, delete these 2 sentences under X CALL 
"Tf Q = 1, calls can be nested to 10 levels. 
Nesting cleared for Q = 0." 
2) p. B2, insert error code ?5422?00.00 
"5422 X CALL NESTING NO LONGER SUPPORTED. USE X CADO 
INSTEAD." 


3) p. Bl, delete error code ?22.24. 


b) 


c) 
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Using the X CALL (or X END) command from inside a DO group 

or FOR loop has always been illegal (see LOTR #1, pg. 29, 
paragraph C). However, such illegal uses were never detected 
in either 8K FOCAL or 32K FOCAL version 77B, and would 

cause unpredictable results. In version 77C, such illegal 
uses of XK CALL or X END are detected, and a ?5440?00.00 


error message is printed. 


Changes to text of LOTR #21 


1) p. B2, insert error code ?5440?00.00: 


"5440 X CALL or X END FROM WITHIN ADO GROUP OR FOR LOOP" 


In both 8K and 32K FOCAL version 77B, one could easily wipe 
out many minutes worth of keypunching FOCAL text if one 
accidentally started a new (or modified) program that 
contained an X CALL (or X END) command, before one had 
filed the new program on DECtape or floppy disk. In version 
TTS: 
If FOCAL's text area contains new or modified text that 
has not yet been filed, then execution of X CALL (or X END) 
will cause FOCAL to type 

REALLY? 
on the teletype, and then to wait for a reply. Any reply 
other than 'Y' will cause the X CALL (or X END) command 
to be supressed, and the contents of the text area to be 
preserved. A reply of 'Y' will cause the X CALL (or X END) 


to proceed, and the contents of the text area to be lost. 
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Changes to text of LOTR #21: 
1) Cut off bottom half of this page; paste on pg. 12, LOTR #21 


over X CALL (N,S,Q) 


2. X END (0) (See pg. 11, LOTR #21) 


Modifications b) and c) as described under X CALL above apply 


also to X END. 


3. X FILE (N) (See pg. 13, LOTR #21) 
The contents of FOCAL's text area is written to DECtape or floppy 
disk as program N; then the program N just written out is read 
back into FOCAL's text area, as if an X CALL (N) had been used. 
In version 77B, the text area is written out but not read back. 
The user should not notice any real difference between the two 


versions, except that the version 77C X FILE command will take 


slightly longer. 


Place over bottom half of page 12, LOTR #21 


alana eee ee ed ee Ro a he he eh ee a a. he ee ee en ee ee oe ee ee Se ee se a se a ee ee 


X CALL(N,S) - Call Program N from Dectape. If S>0, 


(For greater versatility in starts program N at subroutine S. 


calling, see the X CADO (Code §*128 + L to start program N at 
eolnmands ps. U/) line L of subroutine S). Use X END(0) 
to return to the line following the 


X CALL command in the calling program. 


Important Notes: 


A) It is illegal to use either X CALL or X END from inside a DO group 
or FOR loop. 


B) If FOCAL's text area contains new or modified text that has not yet 
been filed (See X FILE command below), then execution of X CALL or 
X END will cause FOCAL to type "REALLY?" on the teletype, and then 
to wait for a reply. Any reply other than "Y'' will cause the X CALL 
or X END command to be supressed, and the contents of the text area 
to be preserved, A reply of "Y'' will cause the command to proceed 
and the contents of the text area to be lost. 

C) If X CALL is used to address a program area on the Dectape that does 
not contain a FOCAL program, the following action is taken; 
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II. CORRECTIONS TO OVERLAY FUNCTIONS 
A. Sweep, Time, Position Overlay (See p. 32, LOTR #21) 

The commands in this overlay have been changed so that they work 
correctly in either NAME buffer. This new overlay (dated 5/16/77) 
will not work if used with version 77B FOCAL. The old Sweep, Time, 
Position overlay (dated 2/14/77) will not work with version 77C 
FOCAL. The old Sweep, Time, Position overlay worked correctly if 
used in NAME buffer 1, but caused occasional MUX errors if used in 
NAME buffer 2. When copying version 77C to your FOCAL tape, be 


sure to copy an updated version of this overlay. 


Changes to text of LOTR #21 
p. B3: Change error code 6171 to 6165, 6174 to 6170. 


B. DebuggingUtility Overlay (See p. 34, LOTR #21) 


1. The X MPX command in this overlay has been changed so that it 
works correctly in anes NAME buffer. (The X MPX command had 
the same problem as the commands in the Sweep, Time, Position 
overlay, and the same considerations apply. The new Debugging 
Utility Overlay is dated 5/4/77; the old one was dated 2/23/77). 

2. The X MPX command no longer hangs up the spectrograph control 


panel at the 120" readout room; the previous version did. 
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IIT. ADDITION OF NEW RESIDENT FUNCTIONS 


A. X BRK(0O) 
One of the problems with FOCAL is that: 


"Tf a GOTO or IF command that is inside 


a DO group transfers control 


to a line outside the DO group, that line is executed and control 
then returns to the command following the DO.'' (see DEC. FOCAL manual) 


A similar problem exists with GOTO or IF statements that are used inside 
FOR loops. This feature of FOCAL makes it awkward to bail out of a 
group or FOR loop, as is illustrated by the following example program. 


of 
DO 


SF pe i ee 
Ree MW NMR & ND We 


WNNWNHNNN WwW 
lo 


.10 FOR J=1,3;DO 2 
.20 TYPE !"L 1,2" 


1 wt, 

ioe Pere ee daa aes The X BRK command solves this problem 

, £0 TYPE 7255 <D0 3... by purging FOCAL's pushdown list, which 

.20 TYPE !'"L 2,2" is where FOCAL stores information 

10 IF (3-2)3,3,3.2,3.3 ccrprogenton prada 

.20 TYPE 1"L 3,2" Poe 

,49GO. 152 The effect of the X BRK command is to 

30 TYPE iL. 3.3" break one out of the inside of any DO 
groups or FOR loops, as illustrated by 


the example below. Note that any commands 


on the 


*01, 10 
*01, 20 
*O1. 30 


*Q2, 10 
*Q02, 20 


same line following an X BRK 


Z command are ignored, and execution con- 
tinues with the next sequential line. 


FOR J=1,3;DO 2 
TYPE "1 1,2" 
TYPE 6 dS sQUEr 


TYPE %2,J;DO 3 
TYPE 1" D, 2,2" 


IF (J-2) 3. 3,3.2, 3.3 

TYPE 1'"L 3, 2''sX BRK(O) ; TYPE "ABC" 
TYPE. $C 3, 275"-00 1.2 " 
TYPE PL 3,3" 
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Program 
: Group 


p— Step 


wie. eomnadd functions exactly like a FOCAL DO command, except it 
allows one to "DO" text that is in another FOCAL program. Program P 
is called, then FOCAL 'DO'es group G, step S, as if it were part of 
the calling program. If S = 0, all of group G is "done." If 
G=S = 0, all of program P is "done". When the specified text has 
been "done,'’ control returns to the statement following X CADO in 
the calling program. The X CADO command can be used anywhere a 
FOCAL DO command can be used, and X CADO's can be nested. The degree 
of nesting allowed depends upon space available in the pushdown 
list; X CADO requires 1 more word of pushdown list space than does a 
regular FOCAL DO statement. 
Note - If FOCAL's text area contains new or modified text that has 
not yet been filed, then execution of an X CADO command will 


result in a ?3336?00.00 error. 


Changes to text of LOTR #21 
p. B2, insert error code 3336 
"3336 X CADO EXECUTED FROM MODIFIED TEXT BUFFER. USE X FILE 


FIRST." 


Urs k 


Buffer 
Starting channel 
umber of channels 
C. X INV(A,C,N) 
Negative of buffer 


A(X) = -A(X); for X= CtoC+N-l1 


Buffer 
ouble Precision increment 
Starting channel 
Number of channels 
D. K INCRCA,1I,C,N) 
Increment a buffer by a constant 
A(X) = A(X) + 13; for X=CtoCt+N-l 


FINCR(...) returns overflow count. 


Starting word in A 
| Output buffer 
umber of words to copy 
| Starting word in B 
Input buffer 
[— 


E. X CID(WA,A,NW,WB, 
Copies NW words of I.D. information from I.D. buffer B starting at 


word WB to I.D. buffer A starting at word WA. 


F. 2 new functions, ¥ PV and GV allow one to store 18 single precision 


numbers into an area of memory that is safe over both power failures 


UF a2 


and re-bootstrapping on any of our PDP-8s. 
A location (0-17) 
A single precision number (0-4095) 
a 
X PV(LOC, VAL) 
Stores value into indicated location. 
A location (0-17) 


S D = FGV(LOC) 


Sets D equal to value of location LOC. 


Occasionally, one needs to execute a sequence of FOCAL commands 

without interruption. The X IOF command allows one to prevent 

FOCAL from responding to the CONTROL/C key, while leaving the 

computer's interrupt enabled. 

X LOF(0O) Causes FOCAL to ignore any subsequent CONTROL/C's 
until the next X IOF (-1) command. 

X LOF(-1) Causes FOCAL to respond to any subsequent CONTROL/C's 
until the next X IOF(0O) command. 

If one has mistakenly set X ILOF(O) and needs to abort the FOCAL 

program, hit the STOP button on the CPU. Then set switch registers 

to octal 0200, hit load address, and START. This implicitly 

executes an X IOF(-1) and executes the same restart sequence as 


if FOCAL had been aborted with CONTROL/C. One need not re-bootstrap. 


IV. 
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ADDITION OF NEW OVERLAY FUNCTIONS 


A. Quick Data Overlay 


SET D = 


Buffer (BUFFER SPANNING NOT ALLOWED) 


Starting channel 
(-1 to read 31 words into I.D. area A) 


Number of channels (ignored if C = -1) 
Wait option 


FRDQ (A,C,N,W) 


Starts reading N channels from IBM tape to buffer A. Reads to end 


of buffer if N = 0. Works like READ command except: 


i) 


2) 


3) 


Control returns to FOCAL as soon as the IBM tape starts moving. 
Data transfer can go on in parallel with computing. (One must be 


careful not to use the portion of buffer A into which the data is 


being transferred until the transfer is completed: Use DONE* 


command to check for completion.) 

D returns the status of any previous IBM read or write operation, 
not the status of this command. See DONE command for description 
of status value returned. 

If the tape drive is still busy processing a previous RDQ or 

WRQ command when the current command is executed, three options 


are available 


= 
ll 
© 


A ?6062?00.00 error is printed and the FOCAL 
program is terminated 

W <0 The current command is ignored and control 
returns immediately to the FOCAL program. D 


is set -l 


*The DONE command is described on page U10 
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W> 0 The current command waits for the previous IBM 
tape operation to complete. Then the current 
command is carried out. 

4) If the IBM tape is at END OF TAPE (EOT), the tape drive will 
appear "“busy''. The same actions are possible as described 
in 3) above, except that in the case of W < 0, D will be set 


to -2. 


Buffer (BUFFER SPANNING NOT ALLOWED) 


Starting channel 
(-1 to write 31 words from I.D. area A) 


Number of channels (ignored if C = -1) 


Wait Option 


; 


SET D = FWRQ (A,C,N,W) 
Starts writing N channels to IBM tape from buffer A, starting in 
channel C. Writes to end of buffer if N = 0. Works like WRIT 
command except for the same 4 differences described under the 
RDQ command above. Also, if a WRQ command is directed to a write 


protected IBM tape, a ?6273?700.00 error is given. 


Notes: The RDQ and WRQ commands can be used interchangeably with 
READ and WRIT, and are fully compatible with all other 
resident IBM tape commands, with the exception that one 
should allow approximately a 20 millisec delay after using 


X BAK before using X RDQ or X WRQ. 


Changes to text of LOTR #21: 
p. B3 - add error codes 6062 and 6273 


'6062 RDQ or WRQ USING 'NO WAIT' OPTION FOUND IBM TAPE BUSY 
6273 WRQ FOUND IBM TAPE WITHOUT WRITE RING" 
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SET D = FDONE(0) 


Returns status of last READ or WRITE operation. 


D 


QO if last RDQ or WRQ operation completed successfully 


D 


A 


0 if last RDQ or WRQ operation has not yet completed 

D> 0 if tape error on last RDQ or WRQ, or if last record was a 

file mark. 

The low 12 bits of D contain the remaining word count 

The high 12 bits of D contain: 
BIT 11 is 1 if last record was file mark (4096 bit) 
BIT 10 is 1 is parity error on last record (8192 bit) 
BITS 1-9 unused 


BIT O is O 


Number to be queued. (0 < A < 4095) 
SET D = FADDQ (A) 
Appends A to the end of a 5 element queue.* 
D = 0 if successful. 


If queue is already full, D is set < 0 and queue remains unchanged. 


SET D = FDLTQ (0) 
Sets D to the value of the front element of a 5 element queue%*, 
then removes this element from the queue. 


sets D < 0 if queue already empty. 


Notes: 1. ADDQ and DLTQ are useful for maintaining a queue of 
buffers to be read or written using the RDQ and WRQ commands. 


By queueing data, one can handle instantaneous data rates 


* A queue works on the basis of first in, first out. 


SET D = 
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that exceed that average data transfer rate of the IBM tape 
drive. Such situations occur in high speed data taking 
applications. 

2. The storage area used for the queue is contained within the 
overlay. The queue is initially empty when the overlay is 
brought in with X NAME. No X NAME commands should address 
the buffer containing this overlay in between saving queue 


elements with ADDQ and retrieving them with DLTQ. 


Number of scanner cycles to count 
Switch mask 


FMCQ (N, MASK) 


If scanner is already counting or if N < 0, returns remaining 


counting time, and leaves scanner unchanged. If scanner is not 


counting and N > OQ, then 


1) 


2) 


3) 


Waits for a pulse to be detected on the switch(es) in group 3 
selected by MASK. (External clock pulses can be brought in 
across switches 3.8, 3.9, and 3.10. Pulse width should be at 
least 30 usec) 

Waits to synchronize with scanner memory (max. 4.4 millisec). 
D returns time spent waiting to synchronize with memory in 
units of 13.25 usec. 

Once synchronized, sets counting time of N scanner cycles and 
starts counting. 1 scanner cycle is =4.4 usec. (N = 0 gives 


a counting time of ~10 hours). 
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Buffer for lst 2048 channels (right slit) 


—eE————nnm for 2nd 2048 channels (left slit) 


X MRQ (A,B) 
Wait for current scan to complete, then read scanner memory to 
core. 
First 2048 channels read to buffer A, (starting in channel 0) 
and erased from scanner memory as they are read (Not read or 
erased if A = -1). Similarly for 2nd 2048 channels and buffer B. 
Reads all 24 bits normally. 
To read only the low 12 bike Se each scanner channel, and to pack 
2 of these 12 bit scanner channels per 24 bit buffer channel, add 


4096 to the buffer number. 


B. Data Compaction Overlay 


Output Buffer 
Input Buffer 
Starting word in A (0 < WDA < 4095) 
Starting word in B (0 < WDB < 4095) 


Number of channels in B 


y 


X PAK (A,B,WDA,WDB,N) Packs N channels into N words 
Each channel in B consists of 2 12-bit words. Starting at WDB in 
buffer B and processing N such channels, the low order word of each 
channel is stored into consecutive words in buffer A, starting at 


WDA. The high order words of each channel in B are ignored. 
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Output Buffer 
Input Buffer 
Starting word in A 
Starting word in B 
| ai of channels inA 
X UNPK (A,B,WDA,WDB,N) 
Reverse of PAK. 
Starting at WDB in buffer B and processing N words, appends a high 
order word of 0 to each word and stores into successive channels 


in buffer A, starting at WDA. 


Changes to text of LOTR #21: 
p.- B3 — add error code 6255 


"6255 starting word(s) <0 or >4095 in PAK or UNPK" 


C. Isophote Display Overla (Insert as pg. 38 of LOTR #21) 


Buffer 
Starting channel 
is of channels 
SET D = FIPHO (A,C,N) 
Takes data values in the range 0, 1, or 2 and displays them as 
PIXELS of 3 different densities on CRT. 
QO displays as a blank PIXEL. 
1 displays as a lined PIXEL. 
2 displays as a solid PIXEL. 
Display consumes 1 channel of data per PIXEL, sweeping the CRT in 
a raster pattern. PIXEL size and CRT screen parameters are set 
using the X PIXL command. D is set to number of PIXELS displayed 


by this command. 
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Changes to text of LOTR #21: 


p.- B3 insert error code 6344. 


"6344 screen full in XIPHO or XPIXL not called first." 


PIXEL size (CRT dots on a side) 
PIXELS per line 

Lines per screen 

X origin for picture on CRT 

Y origin for picture on CRT 


O to raster from bottom to top 


J 1 to raster from top to bottom 
X PIXL (PS,PL,LS,X0,Y@,YSWEP) 
Defines PIXEL size and screen parameters used by IPHO command. 
The input arguments must pass the following tests: 
1) PS must be 2 or a multiple of 4 
2) PL, LS, XO, Y@ must all be > 0 
3) PL*PS+X@ must be < 1024 


4) LS*PS+Y@ must be < 1024 


Changes to LOTR #21: 
p. B3 insert error codes 6301, 6302, 6303 


"6301 Bad PIXEL size in X PIXL 
6302 Bad combination of PL, PS, X@ in X PIXL 


6303 Bad combination of LS, PS, Y@ in X PIXL" 
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Data Buffer 

Translate Buffer 

Length of translate buffer 
Starting channel in B 

Starting channel in A 

Number of channels to translate 
Default low (Dbl Prec.) 


Default high (Dbl. Prec.) 


X TRAN (A,B,NSB,CB,CA,N,TL, TH) 


This command allows one to apply an arbitrarily defined function to a 
buffer of data. The function values are assumed to have been previously 
computed and stored into the translate buffer. The function value stored 
into a given channel of the translate buffer is simply the value obtained 
by applying the function to the number of the channel. Specifically, the 


TRAN command operates as follows: 


Translates buffer A, starting at channel CA and translating N 

channels. 

Buffer B contains the translate table, starting in channel CB and 

running NSB channels long. The following operation is performed 

on each indicated channel: 
The value of the channel in buffer A is used as an index into 
the translate table in buffer B. If this index value is >0 
and <NSB, the value of the indexed channel in buffer B is used 
to replace the value of the indexing channel in buffer A. If 
the value of the indexing channel in buffer A is <0, then it is 
replaced with the double precision value TL. If the value is 


> = NSB, then it is replaced with the double precision value TH. 
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- RELOCATION OF RESIDENT FUNCTIONS 


The starting addresses of the following resident functions have been 
moved. In some cases, this has caused a corresponding change in the 
error messages produced by these functions. Appendices Al1-A3, and 


B2 should be updated accordingly. 


NAME OLD ADDR. NEW ADDR. OLD ERROR NEW ERROR 
ADV 5257 5256 <: 
AND 3730 4770 = ee 
CHEK 3722 3732 Se - 
END 5537 5550 = ae 
FILE 5473 5501 sis x 
PAUS 3630 3627 = _- 
RWND 5121 5120 -- ~- 
VAR 5260 5255 5273 5270 
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VI. CORRECTION OF INHERITED BUGS 
A. If one used a DO statement to invoke a single line that contained 
an error, FOCAL diagnosed the error as occuring on the line con- 
taining the DO, and not on the line in which the error actually 


occurred. 


Example 


*1.3 C 
*2.1 TYPE A/G 
*G 


228.73 @ 1.20 error should be diagnosed on line 2.1 


B. The Lick FOCAL functions X DO and X GO did not behave the same as 
the standard FOCAL DO and GO commands. In particular, these commands 
had the same effect as the new X BRK command. That is, X DO and 
X GO would purge FOCAL's pushdown list and cause the program to 
break out of any DO groups or FOR loops in which it was nested. 
Also, any text following X DO on the same line was ignored. In 
32K FOCAL version 77C, X DO and X GO now work exactly like FOCAL's 


DO and GO commands. 


C. If the X EOF(0) command was immediately followed by an X BAK(1,1) 


command, one would fail to backspace behind the file mark. Now fixed. 


D. If an IBM tape were backspaced to beginning of tape (BOT) using the 
X BAK command, or rewound using the X RWND command, the IBM tape 


drive was erroneously left in the "start" state. If another IBM 


U18 


tape command immediately followed, it could possibly start too 


soon and cause I/0 errors. This problem fixed in version 7/7C. 


ARPPENDOTA BL - ERROR OLAGNOSTICS OF FOCAL 19749 


Like COO MEAN TAG 
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4}. 4 PO eae NON EXISTANT LINE REFE 
O517 POL /9 STORAGE WAS FILLED &Y 


LINE NUMBER 
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Oe eee ; 
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FO 
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